# name : CI of prop diff (non strata)
# key : freq.prop.diff.ci.weight.no.strata
# contributor: Shuguang Sun
# --
** MN is almost equal expressions in Farrington and Manning;
** Newcombe is recommended by Fagerland2011 recom_confid_inter_for_two;
** MN is recommended by Nurminen2009 score_inter_for_differ_of;
ods output PdiffCLs=${5:pdiffci};
proc freq data=${1:dtin};
  tables ${2:trt} * ${3:resp} / riskdiff(cl = ${4:$$(yas-choose-value '("NEWCOMBE" "WALD" "MN" "WILSON" "AC" "HA" "(WALD MN WILSON AC HA)" "WALD(CORRECT)" "MN(CORRECT=NO)"))});
  weight count;
run;
